Imports WindowsApplication1
Public Class CriterioCompFactImporte
    Implements IComparer


    Public Function CompPorImporte(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Factura).saldo - CType(y, Factura).saldo
    End Function
End Class
